00100	make films
00200		disable timeout on III controller and work lightly loaded
00300		other ways
00400			computer controlled single frame
00500			to run dpy n times
00600				FOO,,74;RESTORE FLAGS
00605				<BYTE(8)0,0,200>+12;TEST CONTROL BIT
00610				-1,,20;SHUTS OFF WORLD
00700				<BYTE (8)0,40,0>+12;ZERO EDGE OVERFLOW AND DON'T SKIP
00800				<BYTE(11)DX,0>+46;MOVE RIGHT DX
00900				<BYTE(8)0,0,40>+12;TEST EDGE OVFL, SKIP IF NOT
01000				<BYTE(8)200>+12;IF NO SKIP,TURN ON CONTROL BIT
01200				0
01300				FOO,,64	;SAVE FLAGS
01400	
01500	
01600			DX=1024/N
01700				INIT FOO TO 0
01800	
01900	
02000	protection usable with alias
02100		RENAME ←FOO.BAR/P=205